# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl Athena.t'

#########################

# change 'tests => 2' to 'tests => last_test_to_print';

use Test;
BEGIN { plan tests => 2 };
use Athena;
ok(1); # If we made it this far, we're ok.


my $fail;
foreach my $constname (qw(
	ATH_ALGO_CPU ATH_ALGO_CU0 ATH_ALGO_CU1 ATH_ALGO_CU2 ATH_ALGO_CU3
	ATH_ALGO_CU4 ATH_ALGO_CU5 ATH_ALGO_CU6 ATH_ALGO_CU7 ATH_ALGO_CU8
	ATH_ALGO_CU9 ATH_ALGO_DIS ATH_ALGO_DYN ATH_ALGO_FIELDS ATH_ALGO_LOD
	ATH_ALGO_MAXEX ATH_ALGO_MEM ATH_ALGO_NET ATH_ALGO_NON ATH_ALGO_ROR
	ATH_ALGO_SIM ATH_ALGO_TYPES ATH_CASE_ADD_P ATH_CASE_ALGO
	ATH_CASE_CHOSEN ATH_CASE_DURL ATH_CASE_ESC ATH_CASE_EXPECT
	ATH_CASE_E_PATH ATH_CASE_FARM ATH_CASE_FMT ATH_CASE_F_MEMB
	ATH_CASE_F_NAME ATH_CASE_HITADDS ATH_CASE_IN ATH_CASE_MTIME
	ATH_CASE_NOMINA ATH_CASE_ON ATH_CASE_OURL ATH_CASE_PHYS ATH_CASE_P_HOST
	ATH_CASE_P_MEMB ATH_CASE_REM_P ATH_CASE_RTTL ATH_CASE_SERIAL
	ATH_CASE_SPC ATH_CASE_STATS ATH_CASE_TTL ATH_CASE_UP ATH_CASE_URLESC
	ATH_DOWN ATH_EOA ATH_FARM_HARDMAX ATH_MUXS_HARDMAX ATH_NAME_MAX ATH_OFF
	ATH_ON ATH_OPN ATH_PHYS_HARDMAX ATH_READ_ONLY ATH_READ_WRITE ATH_UP)) {
  next if (eval "my \$a = $constname; 1");
  if ($@ =~ /^Your vendor has not defined Athena macro $constname/) {
    print "# pass: $@";
  } else {
    print "# fail: $@";
    $fail = 1;
  }
}
if ($fail) {
  print "not ok 2\n";
} else {
  print "ok 2\n";
}

#########################

# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.

